home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / CD Extras / Plug-ins / QuarkXPress / XChange International demos / Smart XT / Smart XT 2.0 Demo.1 / Smart XT 2.0 Demo.1.rsrc / PSCD_133 < prev    next >
Text File  |  1994-08-10  |  1KB  |  46 lines
  1. gsave
  2. 40 dict begin
  3. /_image systemdict /image get def
  4. /_setgray systemdict /setgray get def
  5. /_currentgray systemdict /currentgray get def
  6. /_settransfer systemdict /settransfer get def
  7. /_currenttransfer systemdict /currenttransfer get def
  8. /blank 0 _currenttransfer exec
  9. 1 _currenttransfer exec eq def
  10. /negative blank
  11. {0 _currenttransfer exec 0.5 lt}
  12. {0 _currenttransfer exec 1 _currenttransfer exec gt}
  13. ifelse def
  14. /inverted? negative def
  15. /level2 systemdict /languagelevel known
  16. {languagelevel 2 ge} {false} ifelse def
  17. /hascolor systemdict /setcmykcolor known def
  18. /foureq {4 index eq 8 1 roll
  19. 4 index eq 8 1 roll
  20. 4 index eq 8 1 roll
  21. 4 index eq 8 1 roll
  22. pop pop pop pop and and and} def
  23. hascolor {/band 0 def} {/band 5 def} ifelse
  24. /setcmykcolor where {pop
  25. 1 0 0 0 setcmykcolor _currentgray 1 exch sub
  26. 0 1 0 0 setcmykcolor _currentgray 1 exch sub
  27. 0 0 1 0 setcmykcolor _currentgray 1 exch sub
  28. 0 0 0 1 setcmykcolor _currentgray 1 exch sub
  29. 4 {4 copy} repeat
  30. 1 0 0 0 foureq {/band 1 store} if
  31. 0 1 0 0 foureq {/band 2 store} if
  32. 0 0 1 0 foureq {/band 3 store} if
  33. 0 0 0 1 foureq {/band 4 store} if
  34. 0 0 0 0 foureq {/band 6 store} if} if
  35. blank {/band 6 store} if
  36. gsave
  37. gsave
  38. newpath 0 0 moveto
  39. 0 1 lineto 1 1 lineto 1 0 lineto 0 0 lineto
  40. clip newpath 1 setlinewidth
  41. /setcmykcolor where {pop
  42. 1 1 1 1 setcmykcolor
  43. 100 100 moveto 101 101 lineto stroke
  44. } if
  45. grestore
  46.